home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / video easel / camrexx / hpp-gas_refract.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-30  |  457b  |  24 lines
  1.  
  2. /* HPP-Gas by an idea of Toffoli, in CAMRexx by THOR */
  3.  
  4. MakeAlgorithm:
  5.    if plane=0 then
  6.       PLANEALGORITHM margolus hvphases
  7.    if plane=1 then
  8.       PLANEALGORITHM echo center1
  9. return
  10.  
  11. MakePlane:
  12.    if plane=0 then; do
  13.       lens=ul_ | ur_ | ll_ | lr_
  14.       if lens & phase_ then
  15.          SETPLANE center
  16.       else; do
  17.          if (center=opp & cw=ccw & center~=cw) then
  18.               SETPLANE cw
  19.         else  SETPLANE opp
  20.       end
  21.    end
  22. return
  23.  
  24.